<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>8</cardCount>
<cardID>5277</cardID>
<listID>8665</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>on openStackglobal sortField, flagset lockscreen to truego lastset lockscreen to falseput false into flagif wrongStack() then pass openStackcreateMenusetUserLevpass openStackend openStackon createMenuglobal sortFieldif wrongStack() then pass createMenuif there is a menu "Inventory" then exit createMenucreate menu "Inventory"put createMenuItems() into menu "Inventory" with menuMsg createMenuMsgs()set checkMark of menuItem 1 of menu "Inventory" to trueput "ItemName" into sortFieldpalette "SearchPalette", "150, 250"end createMenuon uncreateMenuif wrongStack() then pass uncreateMenuif there is not a menu "Inventory" then exit uncreateMenuelse delete menu "Inventory"if there is not a window "SearchPalette" then exit uncreateMenuelse close window "SearchPalette"end uncreateMenufunction createMenuItemsif wrongStack() then pass createMenuItemsreturn "Item Name" & return & ¬"Manufacturer" & return & ¬"............" & return & ¬"Print Inventory" & return & "Export Text" & ¬return & "Print Comments"end createMenuItemsfunction createMenuMsgsif wrongStack() then pass createMenuMsgsreturn "sortByItem" & return & ¬"sortByManu" & return & ¬"" & return & ¬"printInventoryList" & return & "exportText" & return & "printComments"end createMenuMsgsfunction wrongStackget the value of word 2 of the long name of mereturn (it is not line 1 of the stacks)end wrongStackon closeStackif wrongStack() then pass closeStackuncreateMenuresetUserLevpass closeStackend closeStackon resumeif wrongStack() then pass resumecreateMenusetUserLevpass resumeend resumeon suspendif wrongStack() then pass suspenduncreateMenuresetUserLevpass suspendend suspendon resumeStackif wrongStack() then pass resumeStackcreateMenusetUserLevpass resumeStackend resumeStackon suspendStackif wrongStack() then pass suspendStackuncreateMenuresetUserLevpass suspendStackend suspendStackon sortByItemglobal sortFieldput "ItemName" into sortFieldset checkMark of menuItem 1 of menu "Inventory" to trueset checkMark of menuItem 2 of menu "Inventory" to falseend sortByItemon sortByManuglobal sortFieldput "manufacturer" into sortFieldset checkMark of menuItem 2 of menu "Inventory" to trueset checkMark of menuItem 1 of menu "Inventory" to falseend sortByManuon sortStackglobal sortFieldsort cards of bkgnd "Item Cards" by bkgnd field sortFieldgo first cardend sortStackon printInventoryListset lockscreen to trueopen report printing with template "Listing"print all cardsclose printingset lockscreen to falseend printInventoryListon goNextvisual effect stretch from centergo to next cardend goNexton goPrevvisual effect stretch from centergo to previous cardend goPrevon searchStackglobal searchStringask "Search for ..." with searchStringif it is empty thenplay "boing"Mexit searchStackelseput it into searchStringfind chars searchStringif the result is "not found" thenplay "boing"answer "No matching text found" with "Ok"end ifput the foundField into fieldNameif fieldName is not visible then show fieldNameend ifend searchStackon setUserLevglobal flagget userlevelif It is 1 thenset userlevel to 2put true into flagelseexit setUserLevend ifend setUserLevon resetUserLevglobal flagif flag is true thenset userlevel to 1put false into flagend ifend resetUserLevon exportTextask file "Name of export file" with "export file"if it is empty then exit exportTextput it into fileNameset lockscreen to truepush cardgo first cardopen file fileNamewrite "Item Name" & " " & "Replacement Cost" & " " & ¬"Date" & return to file fileNamerepeat while the short name of this bkgnd is "Item Cards"write bkgnd field 1 & " " & bkgnd field 4 & ¬" " & bkgnd field 6 & return to file fileNamego next cardend repeatclose file fileNamepop cardset lockscreen to falseend exportTexton printCommentsset lockscreen to truemark cards where bg field 7 is not emptyif the number of marked cards is zero thenplay "boing"answer "No items have comments entered" with "Ok"exit printCommentsend ifopen report printing with template "Item comments"print marked cardsclose printingunmark all cardsset lockscreen to falseend printComments</script>
